home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / machv / programmer.lha / PrintMacros / PrintMacros.c < prev    next >
C/C++ Source or Header  |  1993-09-20  |  17KB  |  630 lines
  1. #define PRTMAC_C
  2.  
  3. /* PrintMacros - Version 1.0 07-10-93    TAB STOPS SET TO 4!
  4.    Copywrite 1993 by Brian Moats
  5.  
  6.    This program will print MachV macros to the printer, a file, or a window.
  7.    It requires MachV 5.0 or later to be running.
  8.  
  9.    PrintMacros is called from SetMachV when you click on 'Print Macros'. The
  10.    configuration that is current at that time is the one whose macros will be
  11.    printed. It may also be called from the shell with one argument - the name
  12.    of the desired configuration. If no name is supplied, the current
  13.    configuration will be printed.
  14.  
  15.    You may also create a macro that will execute this program. Example:
  16.  
  17.    Exe_Cmd"PrintMacros \"GNU Emacs#?\""
  18.  
  19.    This program may also serve as an example of how to interact with MachV.
  20.    It is not an elegant example of coding, however ;-).
  21.  
  22.    If you have the appropriate catalog, PrintMacros will adapt to that
  23.    language. deutsch and français are provided.
  24.  
  25.    Because MachV is locked by ObtainSemaphore() while printing, MachV can
  26.    not do anything. This may be inconvenient, but it is proper.
  27.  
  28.  
  29.    sc PrintMacros
  30.    slink lib:cback.o PrintMacros.o lib lib:sc.lib lib:debug.lib lib:amiga.lib
  31.  
  32.    or to make smaller:
  33.  
  34.    slink lib:cback.o PrintMacros.o sprintf.o lib lib:sc.lib lib:debug.lib \
  35.          lib:amiga.lib
  36.    
  37.        (requires sprintf.a)
  38.  
  39. */
  40.  
  41. #include <string.h>
  42. #include <stdio.h>
  43. #include <proto/asl.h>
  44. #include <proto/dos.h>
  45. #include <proto/exec.h>
  46. #include <proto/gadtools.h>
  47. #include <proto/graphics.h>
  48. #include <proto/intuition.h>
  49. #include <proto/utility.h>
  50. #include <clib/keymap_protos.h>
  51. #include <clib/locale_protos.h>
  52. #include <exec/execbase.h>
  53. #include <exec/types.h>
  54. #include <exec/memory.h>
  55. #include <exec/ports.h>
  56. #include <graphics/gfxbase.h>
  57. #include <intuition/intuition.h>
  58. #include <intuition/intuitionbase.h>
  59. #include <libraries/gadtools.h>
  60.  
  61. #define STRINGARRAY
  62.  
  63. #include "prtstr.h" /* created by catcomp */
  64. #include "m43:headers/mach.h"
  65. #include "m43:headers/machlib.h"
  66. #include "m43:headers/machlib_protos.h"
  67. #include "m43:headers/machlib_pragmas.h"
  68.  
  69. #define WIN_WIDTH    150
  70. #define WIN_HEIGHT    76
  71.  
  72. #define WIN_FLAGS  WFLG_ACTIVATE | WFLG_SMART_REFRESH | WFLG_CLOSEGADGET | \
  73.                    WFLG_NOCAREREFRESH | WFLG_DEPTHGADGET | WFLG_DRAGBAR
  74.     
  75. #define IDCMP_FLAGS IDCMP_CLOSEWINDOW | IDCMP_GADGETUP | IDCMP_REFRESHWINDOW
  76.     
  77. #define WHERE_GID   100
  78. #define GO_GID      101
  79. #define ABORT_GID   102
  80.  
  81. #define PRINT_TO_CONSOLE     0
  82. #define PRINT_TO_PRINTER     1
  83. #define PRINT_TO_FILE         2    
  84.  
  85. /* ============== Local Protos ============== */
  86.  
  87. static void handle_msg(void);
  88. static BOOL main_window_open(void);
  89. static void main_window_close(void);
  90. static void set_language(void);
  91. static void print_macros(void);
  92. static void get_keytext(UWORD key,UWORD qual);
  93. static BOOL XLateKeyQual(UWORD code,UWORD qual,UBYTE *buf);
  94. static BOOL FileByRequest(void);
  95. static void FreeFileRequestStruct(void);
  96.  
  97. static void writemacro(void);
  98. static void writestr(char *s);
  99. static void writehdr(void);
  100. static void writedash(void);
  101. static void writepadded(char *str,long max);
  102. static void pause(void);
  103. static void getquals(void);
  104.  
  105.  
  106. /* ============= Globals ============== */
  107.  
  108. struct MachLibrary *MachBase;
  109. struct IntuitionBase *IntuitionBase;
  110. struct GfxBase *GfxBase;
  111. struct Library *GadToolsBase, *LocaleBase, *KeymapBase, *AslBase;
  112. APTR Catalog;
  113.  
  114. /* detach stuff */
  115.  
  116. long __stack = 4000;
  117. long __priority = 0;
  118. long __BackGroundIO = 1;
  119. char *__procname = "PRINTMACROS";
  120.  
  121. extern BPTR _Backstdout;   /* file handle we will write to with */
  122.  
  123. /* ============== Locals ============== */
  124.  
  125. static struct Window *mainw;
  126.  
  127. static struct TextAttr Topaz80 = {(STRPTR)"topaz.font",8,0,FPF_ROMFONT};
  128. static struct VisualInfo  *VI; 
  129.  
  130. static char *where_labels[] = {NULL,NULL,NULL,NULL};
  131.  
  132. static struct Gadget *print_glist;
  133.  
  134. static WORD wle,conh,conw;
  135. static WORD where_to;
  136. static BOOL print_done,wb_to_back;
  137. static LONG maxlines,maxconsolelines,linecnt;
  138.  
  139. static BPTR fh;
  140. static char printdirname[80],printfilename[40];
  141.  
  142. static char blanks[43] = "                                          ";
  143. static char pressreturn[] = "Press Return";
  144.  
  145. static char curname[16]; /* name of macro currently being printed */
  146.  
  147. static char constr[50] = "Con:0/0/640/200/Macros/CLOSE";
  148.  
  149. static char qualtext[16],keytext[10];
  150.  
  151. static struct MacroObject *mo; /* macro currently being printed */
  152. static struct MachCfg  *cfg;
  153.  
  154. static ULONG toppix;
  155.  
  156.  
  157. main(int argc, char **argv)
  158. {
  159.     IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library",37L);
  160.     GfxBase    = (struct GfxBase *) OpenLibrary("graphics.library",37L);
  161.     GadToolsBase = OpenLibrary("gadtools.library",37L);
  162.     KeymapBase        = (struct Library*)OpenLibrary("keymap.library",0L);
  163.     MachBase = (struct MachLibrary*)OpenLibrary("mach.library",37L);
  164.  
  165.     if (cfg = MachBase->ml_CurConfig) { /* then MachV is running */
  166.         set_language();
  167.         where_to = PRINT_TO_CONSOLE;
  168.         if (argc > 1) {
  169.             argv++;
  170.             cfg = FindConfigByName(*argv);
  171.         }
  172.         if (cfg) {
  173.             if (main_window_open()) {
  174.                 while (mainw) {
  175.                     Wait(1L << mainw->UserPort->mp_SigBit);
  176.                     handle_msg();
  177.                 }
  178.             }
  179.         }
  180.         else
  181.             Write(_Backstdout,"Can't find configuration!\n",26L);
  182.         CloseLibrary((struct Library*)MachBase);
  183.     }
  184.     else
  185.         Write(_Backstdout,"MachV must be active first!\n",30L);
  186.     if (wb_to_back)
  187.         WBenchToBack();
  188.     if (IntuitionBase)
  189.         CloseLibrary((struct Library*)IntuitionBase);
  190.     if (GfxBase)
  191.         CloseLibrary((struct Library*)GfxBase);
  192.     if (GadToolsBase)
  193.         CloseLibrary(GadToolsBase);
  194.     if (KeymapBase)
  195.         CloseLibrary(KeymapBase);
  196. }
  197.  
  198. static void print_macros(void)
  199. {
  200.     UBYTE            fullpath[160];
  201.     ULONG             match_type;
  202.  
  203.     switch (where_to) {
  204.     case PRINT_TO_CONSOLE:
  205.         sprintf(constr,"Con:0/0/640/%ld/Macros/CLOSE",conh);
  206.         fh = Open((STRPTR)constr,MODE_OLDFILE);
  207.         maxlines = maxconsolelines;
  208.         break;
  209.     case PRINT_TO_PRINTER:
  210.         fh = Open((STRPTR)"prt:",MODE_OLDFILE);
  211.         maxlines = 99999;
  212.         break;
  213.     case PRINT_TO_FILE:
  214.         if (AslBase = OpenLibrary((UBYTE*)"asl.library",37L)) {
  215.             if (FileByRequest()) {
  216.                 strcpy((char*)fullpath,printdirname);
  217.                 AddPart(fullpath,(UBYTE*)printfilename,160);
  218.                 fh = Open((STRPTR)fullpath,MODE_NEWFILE);
  219.                 FreeFileRequestStruct();
  220.             }
  221.             CloseLibrary(AslBase);
  222.         }
  223.         maxlines = 99999;
  224.         break;
  225.     }
  226.     print_done = 0;
  227.     linecnt = 0;
  228.     if (fh) {
  229.         writestr(cfg->mc_Title);
  230.         writehdr();
  231.         writedash();
  232.         ObtainSemaphore(&MachBase->ml_BaseSemaphore);
  233.         while (!print_done) {
  234.             match_type = MT_WILDCARDS; /* find all macros */
  235.             while (mo = FindByName(cfg,"#?",match_type)) {
  236.                 match_type |= MT_MATCH_NEXT;     /* keep going */
  237.                 writemacro(); /* write to printer, file or window */
  238.                 if (print_done) /* writestr() can set this */
  239.                     break;
  240.                 handle_msg();  /* check for abort gadget hit */
  241.             }
  242.             if (mo == NULL) /* did all, now pause */
  243.                 pause();
  244.             break;
  245.         }
  246.         ReleaseSemaphore(&MachBase->ml_BaseSemaphore);
  247.         Close(fh);
  248.         fh = NULL;
  249.     }
  250. }
  251.  
  252. static void handle_msg(void)
  253. {
  254.     struct IntuiMessage *imsg;
  255.     struct Gadget *gadget;
  256.     ULONG iclass;
  257.     WORD icode;
  258.  
  259.     while (mainw && (imsg = GT_GetIMsg(mainw->UserPort))) {
  260.         iclass = imsg->Class;
  261.         icode = imsg->Code;
  262.         gadget = (struct Gadget *) imsg->IAddress;
  263.         GT_ReplyIMsg(imsg);
  264.         if (iclass == IDCMP_GADGETUP) {
  265.             switch (gadget->GadgetID) {
  266.             case WHERE_GID:
  267.                 where_to = icode;
  268.                 break;
  269.             case GO_GID:
  270.                 if (fh == NULL) /* not already printing? */
  271.                     print_macros();
  272.                 break;
  273.             case ABORT_GID:
  274.                 print_done = 1;
  275.                 break;
  276.             }
  277.         }
  278.         if (iclass == IDCMP_CLOSEWINDOW)
  279.             main_window_close();
  280.     }
  281. }
  282.  
  283. static BOOL main_window_open(void)
  284. {
  285.     struct Screen *public_screen;
  286.     struct Gadget *gad;
  287.     struct NewGadget ng;
  288.     int i,w,width;
  289.  
  290.     where_labels[0] = AppStrings[MSG_DEST_WINDOW_GAD].as_Str;
  291.     where_labels[1] = AppStrings[MSG_DEST_PRINTER_GAD].as_Str;
  292.     where_labels[2] = AppStrings[MSG_DEST_FILE_GAD].as_Str;
  293.  
  294.     width = 0; /* get max width for cycle gadget */
  295.     for (i=0;i<3;i++)
  296.         if ((w = strlen(where_labels[i])) > width)
  297.             width = w;
  298.  
  299.     if ((public_screen = LockPubScreen(NULL)) != NULL) {
  300.         VI = GetVisualInfoA(public_screen,TAG_END);
  301.         toppix = public_screen->FirstWindow->BorderTop + 1;
  302.         wle = ((GfxBase->NormalDisplayColumns >> 1) - public_screen->LeftEdge - (WIN_WIDTH / 2));
  303.         conh = GfxBase->NormalDis